perm filename TMP.TEX[TEX,DEK]5 blob
sn#540840 filedate 1980-10-13 generic text, type T, neo UTF8
% ***** CMLADF.TEX ***** 12 August 1980
% 7-pt text, to 4.2 pt, 15 in, 60% reduction
\chcode'173=1 \chcode'175=2 \chcode'44=3 \chcode'26=4
\chcode'45=5 \chcode'43=6 \chcode'136=7 \chcode'1=8
\def\%{\char'45 } % Note, the space after 45 is needed! (e.g.\%0)
\def\trace{\chpar0=} \def\jpar{\chpar1=} \def\ragged{\chpar8=}
\def\nskip{\hskip .5em plus .5em minus .2em}
\def\sepstar{\nskip{\sy\char'3}\nskip} %\char3 is an asterisk in symbol font
\def\npg{\penalty 1000\hfilneg} %negative paragraph glue
\def\pfill{\hskip .5em plus 5000pt\penalty 500\null\!
\penalty 1000\hskip .5em plus 5000pt\!}
% fill between end of "paragraph" text and a flush right element
% formerly \hskip .5em plus 5000pt
% last penalty inserted to try to suppress break before
% affil, omitted again to try to avoid exceeding varsize
\def\null{\hbox{}}
\def \dummybox{\hbox to \colwd{\vbox to \count1 pt{\vfill\eject}}}
\font @=cmathx
\font a=cmr10 \font d=cmr7 \font f=cmr5
\font g=cmi10 \font j=cmi7 \font l=cmi5
\font q=cmb10
\font u=cmsy10 \font x=cmsy7 \font z=cmsy5
\font X=cmb7
\def\rm{\:a}\def\bf{\:q}
\def \sevenpt{\baselineskip 7pt \lineskip 1pt \lineskiplimit 1pt
\def\strut{\lower 1.75pt\vbox to 7pt{}\penalty 1000}
\def\rm{\:d} \def\sl{\:j} \def\bf{\:X} \def\sy{\:x}\rm}
\mathrm adf \mathit gjl \mathsy uxz \mathex @
\setcount0 1 % counter for numbering output segments
\setcount2 390
\setcount4 161 % width of single column
\setcount5 7 % width of gap between columns
\def \colwd{\count4 pt}
\def \intercol{\count5 pt}
\setcount6\count4 \advcount6 by\count5 \advcount6 by\count4
\def \lwd{\count6 pt} % left-hand "half" of page contains 2
% columns and intervening gutter
% to split page which exceeds TEX's memory [varsize=17000]
\def \pagewd{665pt} %measure of full page
\hsize\colwd \vsize\count2 pt \maxdepth 1pt % one-column dimensions
\topbaseline 0pt % make tops of all columns even
\jpar 1000 % override the usual line-break restrictions
\chpar17=0 % encourage breaks after explicit hyphens
\gdef \lr{L} % lr = L for left half, R for right half
\def \textfont{\sevenpt}
\textfont
\def \name#1#2#3#4{ % control sequence for names:
% 1=last name; 2=rest of name; 3=listing; 4=affil
\baselineskip 7pt
\mark{#1} %mark stripped last name for folios
\hbox par \colwd {\textfont\strut\! %each entry to be treated as a unit
{\bf#1\!#2\! }\! %name in bold
#3\unskip\! %rest of listing in roman
\pfill{\strut\bf#4}\npg}
% flush right society affiliations, in bold
\penalty-10\vskip 0pt plus 2pt}
% break okay after entry, allow leading if needed
\output{\outa}
\def \outa{\output{\outb}\save1\page }
\def \outb{\output{\outc} % now we print the left half page
\vbox to size{\baselineskip 0pt\lineskip 0pt
\hbox to \lwd{\box1\hfil\page} }
\gdef\lr{R} }
\def \outc{\output{\outd}\save1\page }
\def \outd{\output{\outa}
\vbox to size{\baselineskip 0pt\lineskip 0pt
\hbox to \pagewd{\dummybox\hfil\dummybox
\hfil\box1\hfil\page}}
\gdef\lr{L} }
\gdef \closeout{\gdef\lr{R}
\vfill\end}